

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    End Sub


    Public Sub GetFeedsAsXml()
        Response.Clear()
        Response.ContentType = "text/xml"
        Response.Charset = "utf-8"
        Response.Write("<?xml version=""1.0"" encoding=""utf-8""?>")
        Response.Write(GLShared.GetFeeds)
        Response.End()
    End Sub


    Public Sub GetFeedsAsJson()
        Response.Clear()
        'Response.ContentType = "application/json"
        Response.Write(GLShared.GetFeedsAsJson)
        Response.End()
    End Sub

End Class
